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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRR 
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RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
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**F 1LE**1D**PASABSL 
PPPPPPPP AAAAAA SSSSSSSS AAAAAA BBBBBBBB SSSSSSSS LL 
PPPPPPPP AAAAAA SSSSSSSS AAAAAA BBBBBBBB SSSSSSSS_ LL 
PP PP AA AA SS AA AA BB BB SS LL 
PP PP AA AA SS AM AA 8B BB SS LL 
PP PP AA AA SS AA AA 8B BB SS LL 
PP PP AA AA SS AB AA BB BB SS LL 
PPPPPPPP Ab AA SSSSSS ‘lal AA BBB8BBBBB SSSSSS LL 
PPPPPPPP An Ah SSSSSS AA AA S8B8BBBBBB SSSSSS LL 
PP AAAAAAAAAA SS AAAAAAAAAA BB BB SS LL 
PP AAAAAAAAAA SS AAAAAAAAAA BB BB SS LL 
PP BA bh SS AA AA BB BB SS LL 
PP AA AA SS AA AA BB BB SS LL 
PP AA AA SSSSSSSS AA AA BBBBBBBB SSSSSSSS LLLLLLLLLL 
PP AA AA SSSSSSSS AA AA BSBBBBBB SSSSSSSS LLLLLLLLLL 
LL IIIT] SSSSSSSS 
LL 11111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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PASSABS_L - Return absolute value "6 6-SEP p-1984 Ot: 1:44 VAX/VMS Macro V04-00 Page 1 ve 
1-001 6-SEP=-1984 9:58 [CPASRTL.S REIP ASABSL.MAR; 1 (1) 1=( 
-TITLE PASSABS_L = Return absolute value 
IDENT /1-001/7 ; File: PASABSL.MAR Edit: $BL1001 


MARABABRBARAABABAAAASLALASAAAASASALARE RASA RARERR SARA RRRRARR SARA RA RR RE RS RA RASA L AES SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* * 
:* * 
s@ as 
ft * 
® ® 
;* THIS SOFTWARE IS FURNISHED ae A LICENSE AND MAY BE . AND sgh * 
;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. . 
ft * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
* 
;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ft * 
:* ® 
® * 


; 
. 
4 
P 
: 
o 
- 
. 
4 
F 
° 
. 
. 
. 
. 
4 
-! 
4 
. 
: 
: [ARR RBRAAAAAAAASLASAAARSASASSERARSRSARSARARARRARRRRASESARRRRARRRRRRERR RRR ARA SS Bf 
° 

++ 

; FACILITY: Pascal Language Support 

; ABSTRACT: 


This module contains PASSABS_L, which returns the absolute value 
of a longword without checking for overflow. 


: ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 4-Nov-1980 
; MODIFIED BY: 
1-001 - Original. SBL 4-Nov-1980 


SOOCOCCSOOCOOSOOSOSOSOOCSSOSOSOSCOOSCOOOOCOOOOCOOOOOOO OOOO OOOOOCoOO 
CSOOCOCSCOCSCOOOOSSVSOSOSCSOSOSOSCOOCOSOSOSOSOOSOSCOOCOSOOSOOOCOOOOOSOoOoOO 
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PASSABS_L - Return absolute value 16-SEP-1984 01:21:44 VAX/VMS Macro V04-00 Page | 
1-001 DECLARATIONS aes 01 :39;88 LPASRIL. SREIPASABSL_MAR: 1 . 3) 
B00 : ~SBTTL DECLARATIONS 
000 48 ; LIBRARY MACRO CALLS: 
00 49 ; 
000 50 ; NONE » 
0000 a1 3 
44 26 > EXTERNAL DECLARATIONS: 
0000 54 -DSABL GBL ; Force all external symbols to be declared 
0000 55 : NONE 
0000 56 ; 
0000 57 ; MACROS: 
0000 58 ; 
0000 59; NONE 
0000 60 ; 
0000 61 ; EQUATED SYMBOLS: 
0000 6¢ 3 
0000 63 ; NONE 
0000 64 ; 
0000 65 ; OWN STORAGE: 
0000 66 ; 
0000 67; NONE 
0000 68 ; 
444 ° 3 PSECT DECLARATIONS: 
00000000 71 -PSECT _PASSCODE PIC, USR, CON, REL, LCL. SHR, - 
434 i EXE, RD, NOWRT, LONG 
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n absolute value yp os tet 9 91: 1:44 VAX/VMS Macro V04-00 Page ; 
- Take absolute value unchecke 6=-SEP-1984 11:29:58 CPASRTL.SRCJPASABSL.MAR; 1 (3). 
Re -SBTTL PASSABS_L = Take absolute value unchecked 
FUNCTIONAL DESCRIPTION: 

This routine returns the absolute value of a signed longword 

Integer without checking for overflow. If the argument is 

-2t*51, the result returned is -2**31. 
; CALLING SEQUENCE: 
Result.wl.v = PAS$ABS_L (Long.rl.r) 


; FORMAL PARAMETERS: 


t 


c 


PASSABS_L 
1-001 


- Re 
PASS 


Long - Signed longword argument 
; IMPLICIT INPUTS: 


SOOoOCOCOOCSOSOOOSOOOOSCOOOOOCOSOOSOOOOOOOOOOOOOOOo aa 

OOOCCCCOCCOOoCooooooooooSoCooooooooooooooooo 

AMMOOCOCOCOCSOCOCOCOSCOCSCOCOCOCSOOCOCOOCOOCOOOOOOOOOOO rr 
tt SS | “DOO OODOOCOSCOCOOOOOOO0 OO OWWOWOOCOCDO00 NINN 


NAUS WN OO ONAU EWN SO OO NAME WN 0 OONAU EW OOONOUM 


NONE 
IMPLICIT OUTPUTS: 
NONE 
; ROUTINE VALUE: 
1 The absolute value _ of the argument unless the argument is -2**31 
: in which case -2**31 is returned. 
’ ; SIDE EFFECTS: 
1 NONE | 
1 | 
108 ;-- 
1 
0000 : ENTRY PASS$ABS_L, “M<> ; Integer overflow must be disabled 
50 04 BC 00 1 MOVL  a4(AP), RO ; Fetch argument _ | 
03 18 1 BGEQ 10$ ; Done if not negative 
50 50 ce 0008 1 MNEGL RO, RO ; Take absolute value 
04 Bee ’ 108: RET ; End of routine PASSABS_L 
oooc «(1 - END ; End of module PASSABS_L 
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| PASSABS_L - Return absolute value i ak de 9 ar AX/VMS Macro V04-00 Page 
Symbol fable 66-SEP-1984 11:29:58 CPASRTL.SRCJPASABSL.MAR;1 
PASSABS_L 00000000 RG 01 
Soe tween om new ee ot 
! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
s OS 00000000 <¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
PASSCODE ooooo00c ¢«¢ 12.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
mem mone eae wee wnoann woes $ 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization — 10 00:00:00.06 00:00:01.29 
Command processing 81 00:00:00.65 00:00:03.62 
Pass 1 59 00:00:00.31 00:00:01.91 
Symbol table sort 0 e's Bo 00:00:00.00 
Pass 2 37 Bs 00:00:01.27 
Symbol table output 2 00:00:00.01 00:00:00.63 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 192 00:00:01.31 00:00:08.75 


The working set Limit was 750 pages. , : 

1105 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 1 local symbols. 
117 source Lines were read in Pass 1, ecogys a 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


+ 
: Macro Library statistics : 

Macro Library name Macros defined 

_$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 

0 GETS were required to define 0 macros. 

There were no errors, warnirgs or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:PASABSL/OBJ=OBJ$:PASABSL MSRC$:PASABSL/UPDATE=(ENH$:PASABSL ) 
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